/* GUI CONVERTED from rcsocmmt.p (converter v1.75) Wed Sep 13 13:09:38 2000 */
/* rcsocmmt.p - Release Management Customer Schedules Comments          */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/* web convert rcsocmmt.p (converter v1.00) Tue Sep 30 12:00:46 1997 */
/* web tag in rcsocmmt.p (converter v1.00) Mon Sep 29 14:36:27 1997 */
/*K0KR*/ /*                                                       */
/*V8:ConvertMode=Report                                                 */
/* REVISION: 7.4    LAST MODIFIED: 06/16/95           BY: str *G0N9*    */
/* REVISION: 8.6    LAST MODIFIED: 10/03/97           BY: bvm *K0KR*    */


/* REVISION: 8.6E     LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane */
/* REVISION: 8.6E     LAST MODIFIED: 05/28/98   BY: *K1R3* A. Shobha */
/* REVISION: 8.6E     LAST MODIFIED: 10/04/98   BY: *J314* Alfred Tan   */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00 BY: *N08T* Annasaheb Rahane */
/* REVISION: 9.1      LAST MODIFIED: 08/12/00 BY: *N0KP* myb              */
/* REVISION: 9.1      LAST MODIFIED: 08/28/00   BY: *N0P6* Arul Victoria   */


/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

            {mfdeclre.i}
{gplabel.i} /* EXTERNAL LABEL INCLUDE */

/*N0P6* ------------------- BEGIN DELETE ----------------------- *
 * /* ********** Begin Translatable Strings Definitions ********* */
 *
 * &SCOPED-DEFINE rcsocmmt_p_1 " Transaction Comments "
 * /* MaxLen: Comment: */
 *
 * /* ********** End Translatable Strings Definitions ********* */
 *N0P6* ------------------- END   DELETE ----------------------- */

/*K1R3 /*K0KR*/ {wbrp02.i} */

            define input parameter cmmts as logical no-undo.
        define input parameter cmtindx as integer no-undo.
        define variable i as integer no-undo.

        if cmmts then do:
           FORM /*GUI*/ 
          cmt_cmmt[1] no-label
           with STREAM-IO /*GUI*/  frame cmmts_data down width 80 attr-space
/*N0P6*    title color normal (getFrameTitle("TRANSACTION_COMMENTS",29)).  */
/*N0P6*/   title color normal (getFrameTitle("TRANSACTION_COMMENTS",78)).

/*N0P6* ------------------- BEGIN DELETE ----------------------- *
 *         /* SET EXTERNAL LABELS */
 *         setFrameLabels(frame cmmts_data:handle).
 *N0P6* ------------------- END   DELETE ----------------------- */

           for each cmt_det no-lock where cmt_indx = cmtindx:
          do i = 1 to 15:
             if cmt_cmmt[i] > "" then do:
            display cmt_cmmt[i] @ cmt_cmmt[1] with frame cmmts_data STREAM-IO /*GUI*/ .
            down 1 with frame cmmts_data.
            
/*GUI*/ {mfguichk.i  &warn=false} /*Replace mfrpchk*/

             end.
          end.
           end.

           hide frame cmmts_data.
        end.
/*K1R3 /*K0KR*/ {wbrp04.i} */
